home *** CD-ROM | disk | FTP | other *** search
/ Game On / Game_On_92-12_1992_-_de_Side_A.d64 / ninja 3 _dm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  662b  |  21 lines
  1. 100 clr:dimts$(5):dimb1(5):dimb2(5):dimf(5)
  2. 101 ts$(1)="17 02":b1(1)=194:b2(1)=15:f(1)=1
  3. 102 ts$(2)="17 17":b1(2)=247:b2(2)=12:f(2)=2
  4. 103 ts$(3)="07 05":b1(3)=96:b2(3)=14:f(3)=2
  5. 104 ts$(4)="17 17":b1(4)=139:b2(4)=15:f(4)=3
  6. 105 ts$(5)="07 05":b1(5)=232:b2(5)=12:f(5)=3
  7. 110 print" unlimited lives on[146] or of[146]f : ";
  8. 120 geta$:ifa$<>"n"anda$<>"f"then120
  9. 130 tr=(a$="n"):printa$
  10. 190 fori=1to5
  11. 200 iff<>f(i)thengosub280
  12. 210 open2,8,15:open1,8,2,"#"
  13. 220 print#2,"u1 2 0 "ts$(i)
  14. 230 print#2,"b-p 2 187"
  15. 240 iftrthenprint#1,chr$(249)chr$(76)chr$(138)chr$(b1(i))chr$(b2(i));
  16. 250 ifnottrthenprint#1,chr$(186)chr$(3)chr$(237)chr$(10)chr$(148);
  17. 260 print#2,"u2 2 0 "ts$(i)
  18. 270 f=f(i):close2:close1:next:end
  19. 280 print"insert disk - side"f(i)chr$(13)"press any key !"
  20. 290 poke198,0:wait198,1:poke198,0:return
  21.